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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3K tok koko ak dk I ICI FO a CK kK a dato kof kok aka ai tok ok ick 00001D 119+B61 EQU 29 13 4 * 
4 * * OO0O00TE 120+B62 EQU 30 14 2 * 
5 * KK PREREQUISITES KX * OOOO 1F 121+B63 EQU 31 15 1 * 
6 * * OOO00TE 122+CH EQU 30 14 2 CHARACTER SUPPLIED 
7 * NONE * OO0O001F 123+CMP EQU 31 15 1 COMPARE OPERATION 
8 * * 001944 0000 125+OPTN3 D x*oo0o0o PROGRAM OPTION CONTROL WORD 3 
9 SIO OC OR OR uk GC aoc i a a ak kak ak aki ak ake ak ak ak ak kc ak ak ak ake cake ake aka ake ok akc kek akc ak ok 126+* 
10 * * 127+* QO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 
11 * 2K MODIFICATIONS KK * 128+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 
12 * * 129+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 
3 : CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST : feos 3 INTERRUPT RECEIVED IN 11° ISB BITS ON (1-7) ISBON 
MTEL CS SLCS SS SSS SSS SSS SSS CSLSSCS SCS SSS SS CSS SSCL SSS SSL SSP SSS SS LS SS STS St tes 2 132+* 4 EXPECTED Senne XE 12 TEST UNIT RESULTS VOID NG 
16 * * 133+* 5 HARD ERROR UND HE 13. OI0O0 CC ERROR TOCC 
17 * KK REA'S INCORPORATED HK * 134+* 6 WRONG INTR feyap SLE 14 NO INTERRUPT NOIN 
18 * * 135+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 
19 * NONE * 136+* BIT HEX 
20 * * 000020 137+MI EQU 32 0 MYSTERY INTERRUPT HAPPENED 
27 RO II III II RIG IC a IO i cic ik kak a kk i ok a ak aca ak 000021 138+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 
22 * * 000022 139+XI EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 
23 * OK SPECIAL INSTRUCTIONS eK * 000023 140+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 
au * * 000024 1414+XE EQU 36 4 8 EXPECTED ERROR RESPONSE 
25 * NONE * 000025 142+HE EQU 37 5 4 HARD E 8 RETRIES 
26 * * 000026 143+$LE EQU 38 6 2 INTERRUPT bn WRONG LEVEL ERROR 
27 RIC CIC RIC I loo RO IO ook lok dak a tok kok tok kok 000027 144G4NTI EQU 39 7 1 NO INTERRUPT EXPECT 
28 * * 000028 145+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 
29 * eK E. C. HISTORY KX * 000029 146+CSA EQU 44 9 4 CYCLE STEAL AVAILABLE 
30 * * OOOO2A 14U7+CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 
31 * DATE O20CT78 DATE 10JAN79 DATE DATE * 00002B 148+ISBON Est 43 11 1 ISB BITS ON 1-7 
32 * E.C. 375102 E.C. 375222 EC: ELC. * 00002C 1494+NG EQU Wy 12 8 TEST UNIT RESULTS NO GOOD 
33 * * 00002D 150+#IOCC EQU 45 13 4 OIO CC ERROR 
CVO TPS SST SCL SCT PSSCSCS CSCS SSC CSCS SSCS SSC SCSSSSCS£! SSL SS SS SSS SLOSS SS SSS Se SS Se Se O00002E 151+#NOIN EQU 46 14 2 NO INTERRUPT 
36 ORO III III IC I I kik kkk kk kak kkk io ke tak ok a ke ico 00002F 152+INCC EQU 47 15 1 INTERRUPT CC ERROR - 
37 * DEFINE CONSTANT AREA FOR PROGRAM I.D. U7AFO * 153+* 
CEE SSS SS LSS SSS SS See tee TSS PS SSS S SSS SS SSCS SSCSSCSCSSC£COC SSS SS SSS SSS SLPS LS SSS SSS SL 2 154+* COMMON BUFFER FOR PRINTING DATA 
001800 39 U7VAFO START ee PROGRAM START ADDRESS 155+%* 
001800 FV7C1C6F0 4O PID DC '7JAFO! PROGRAM NAME 001946 0000 157+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
001804 0000 41 DC X'0000" LEVEL 001948 0000 158+$IOIN DC A (*~-* I/O AND INTR CONDITION CODES 
001806 1E06 42 STADDR DC A(T7A95 START EXECUTION ADDRESS 00194A 0000 159+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 
001808 1812 43 DEVPT DC A (DEVTAB) POINTER TO DEV TABLE 00194C 0000 160+LSTIO DC A (*-* ADRS OF LAST I/0 + 4 BYTES 
00180A 0000 4G RTNE DC A(0 ROUTINE NUMBER O00194E 0000 161+DEV1 DC A (*¥-* DEVICE DEPENDENT DATA 
00180C 0000 45 CKPT DC A(O CHECKPOINT NUMBER 001950 0000 162+DEV2 DC A (*-* 
00180E 00000000 46 DC an | } OPTION WORD ONE AND TWO 001952 0000 163+DEV3 DC A (*-* 
001812 coo1 47 DEVTAB DC X'cooi START OF DEVICE TABLE 001954 0000 164+DEV4 DC A (*-* cs STATUS ERROR ISB & INTR aoe 
001814 0000 48 DEVADD DC Xx*0000! DEVICE ADDRESS AND TYPE 001945 165+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TER 
001816 0000000000000000 49 ASSIGN DC XL8' 00? DEVICE DEPENDENT DATA 001956 166+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 
00181E 7A 50 TYP7A DC X'7A?* DEVICE TYPE FOR THIS PROGRAM 001956 0000 167+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 
001820 0002 51 @ETOH DC A ae EBC TO HEX CONTROL BLOCK 001958 0000 168+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001822 1830 52 @ETOH1 DC A(INAREA FROM DATA ADDRESS 00195A 0000 169+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001824 1814 53 @ETOH2 DC A(DEVADD TO DATA ADDRESS 00195C 0000 170+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001826 00CO0 54 Dc x'ooco! CONTROL BYTE FOR OUTIN CONTROL BLOCK 00195E 0000 171+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001828 1834 55 OOUTIN DC A nek ADDPESS OF MESSAGE 001960 0000 172+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 
00182A 1830 56 DC A (INAREA) ADDRESS OF INPUT AREA 001962 0000 173+DCB7 DC A (*-*% LAST DCB TABLE, BYTE COUNT 
00182c 0002 57 DC A (2 LENGTH OF INPUT DATA 001964 0000 174+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 
00182E 0000 58 DC A(O TYPE OF INPUT eo 175+* 
001830 4040 59 INAREA DC Cc ' oS. INPUT AF 001966 176+CSBUF EQU * CYCLE STEAL DATA BUFFER 
001832 T7AF1 60 DC X'*7AF1* TOP CODE FOR REQUEST OF DEV. ADD. 001966 0000 177+CSTL1 DC A (*-* CS STATUS WD O, RESIDUAL ADDRESS 
001834 E2C5SC3E3D6D940C9C 61 MSG DC C'*SECTOR ID MOVE, CYL6s TO SCATTER ~- ENTER DEV ADDR! 001968 0000 1784+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 
001865 00 62 DC x'oo? 00196A 0000 1794+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 
63 * THE FOLLOWING DC'S ARE TO SATISFY THE SERRS ROUTINE 00196C 0000 180+CSTL4 DC A (*- * CS STATUS WD 3, RETRY CNT WD 2 
001866 18F8 64 TUMSGWTR DC A (O@MSGWTR) ADDRESS OF ABORT MESSAGE WRITER 00196E 0000 1814+CSTL5 DC A (*¥-* CS STATUS WD 4, ERROR STATUS WD 1 
001868 90000 65 TUSTATUS DC A (0) DUMMY TU STATUS 001970 0000 182+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 
OO186A 4O4DO4OFO4O4O4O4UOY 66 TUWORK DC 128C* ! WORK AREA FOR ABORT PRINT BUFFER 001972 0000 183+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 
OO18EA 0000 67 @DCADD1 DC A (0 DUMMY POINTER 001974 0000 184+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 
0018EC 0000 68 @DCADD2 DC A (0 DUMMY POINTER 001976 0000 1854+CSTLIY DC A (*-* CS STATUS WD 8, CURRENT HD/CYL 
OO18EE 0000 69 SUPSTAT DC A (0 DUMMY STATUS AREA 001978 0000 186+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR 
0018FO0 0080 70 aOUT1 DC x' 0080! CONTROL BYTE FOR OUT CONTROL BLOCK 00197A 0000 187+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 
0018F2 0000 71 OOUT DC ee ADDRESS OF MESSAGE 00197C 0000 188+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 
OO0O18F4 T7AF2 72 DC X'7 F2' STOP CODE FOR ABORT MESSAGE 00197E 0000 189+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP avhp 
0018F6 0000 73 ABMSG DC xX¥'*OQ000!8 DUMMY ABORT MESSAGE 190+* 
74 Oca CuEME CAA ER Ee da ee eee 001980 0000 191+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
75 * THE FOLLOWING ROUTINE WILL OUTPUT ***ABORT**** MSG * 001982 00000000 192+SPDATA DC 24 fas] OPTIONAL DATA 
WTR TT TT SS CCS OCC CCLCC CSCS SCSCCSCLSCSCCSCSCLSSSSCSC SS TSSSSCSCSS SSS LSS SLL SSS SSS LS LS 001986 0021 1934$INTL DC xfoo21° INTERRUPT LEVEL REQUESTED 
0018F8 6908 1DEO 77 @MSGWTR MVW DC2PT,R1 ADDRESS OF MESSAGE AREA 001988 0000 1944+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 
0018FC 0102 78 ABIL TWO Ri POINT R1 AT FIRST LINE LENGTH 00198A 00 195+S$DVID DC X*oOoOr DEVICE ID 
OO18FE CA55 79 MVWZ Le. - R2 LOAD R2 WITH LENGTH 00198C 1814 196+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
001900 690D 18F2 80 MVW T MOVE ADDRESS OF MESSAGE INTO BLOCK 00198E 0000 197+ DC A (*¥-*) IBIS CYLINDER ADDRESS 
001904 4020 1802 C6F2 81 MVWI iéee2:, prpe2 LOAD PID WITH X'F2*' STOP CODE 1984+* 
00190A 4724 18F2 82 MVA @OUT,R7 LOAD ADDRESS OF CONTROL BLOCK 199+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
00190E 6000 83 SVC OUT ISSUE SVC 200+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
001910 0108 84 ABIL EIGHT,R1 BUMP P1 20 1+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
001912 CA25 1IDDE 85 MVWZ BUFPT,R2 ZERO END OF DATA AREA 202+* 
001916 4424 0008 86 MVWI EIGHT, RY INIT R4 TO LINES OF OUTPUT 001990 4020 1946 7A02 2034+T7A02 MVWI X'7A02',$TUID SET UP TEST UNIT ID 
OO19T1A CA55 87 MSGWTR1 MVWZ (RI) ¢ R2 LOAD LENGTH OF MESSAGE 001996 5700 204+ X R7 RETURN TO MDI SUPVR 
00191C 690D 18F2 88 MVW R1 ott LOAD ADDRESS OF MESSAGE INTO BLOCK 206 ORK IC I OK oto Ro i go mai it tok ui kok doko gk kate gi feta feat fee afc ak afc fe ofc ak af ake ake a 
001920 4724 18F2 89 MVA aourT, R7 LOAD ADDRESS OF BLOCK 207 * x 
001924 6000 90 SVC OUT ISSUE SVC 208 * EQUATED NAMES FOR SUPPORTED SVC'IS * 
001926 0128 91 ABI X'28',R1 BUMP TO NEXT LINE 209 * x 
001928 BCF8 9? ICT MSGWTR1,R4 PRANCH FOR COUNT 210 **#% OK IK IO OOK OK aa ok ik iagoi i ga ir I I i i i ici gc kok kk toa tea age ake ak afc ake af ae ak akc af 
00192A 4020 18FO O00CO 93 MVWI X'*O00CO!,a0UTI CHANGE CONTROL BYTE 000000 211 OUT EQU 0 out svVC 
001930 4020 18F2 18F6 94 MVA ABMSG abut LOAD ADDRESS OF ABORT MESSAGE 000001 212 OUTIN EOU 1 OUTIN SVC 
001936 4724 18F2 95 MVA aO T,R7 LOAD ADDRESS OF CONTROL BLOCK 000002 213 IDLE EQU 2 IDLE SVC 
00193A 6000 96 SVC OU ISSUE SVC 000003 214 ASCII EQU 3 HEX TO ASCII SVC 
00193C 6802 1C78 97 B SCONX BRANCH TO END 000004 215 CHNGE EQU 4 CHANGE LEVEL SVC 
98 * 000005 216 PGMCK Bou 5 ALLOW RETURN ON PROGRAM CHECK SVC 
99 * 000006 217 EXIT EQU 6 EXIT SVC 
100 PDIT 00 000007 218 TERM EQU 7 TERMINATE SVC 
001940 0000 102+OPTN1 DC X*'0000! PROGRAM OPTION CONTROL WORD 1 000008 219 RESET EQU 8 RESET DEVICE Svc 
103+* 000009 220 RID EQU 9 READ ID SVC 
001942 0000 104+OPTN2 DC x'0000° PROGRAM OPTION CONTROL WORD 2 OOOOOA 221 START EQU 10 START CYCLE STEAL SVC 
105+* BIT HEX 00000B 222 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000010 106+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 00000C 223 PREP EQU 12 PREPARE DEVICE 
000011 107+B49 EQU 17 1 4 * 00000D 224 READO EOU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000012 108+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE OOOOO0E 225 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000013 109+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO Q0000F 226 RSTAT EU 15 READ STATUS SVC 
000014 110+B52 EOU 20 Mm 8 * BE ASSIGNED BY EACH PROGRAMMER 000010 227 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000015 111+B53 EQU 21 5 4 * 000011 228 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 OWN SVC 
000015 112+B54 EQU 22 6 2 x 000012 229 CTRL EQU 18 CONTROL SVC 
000017 113+B55 EQU 23 7 1 * 000013 230 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000018 114+B56 EQU 24 8 8 * 000014 231 CICB ERT 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000019 115+B57 EQU 25 9 4 * 000015 232 HI EQU 21 HALT ALL ze? 
ae Hoses Bn hE 390815 33] HEOSD ERY 33 REPUESE USE OF REP SSE Sie 
RELEASE USE OF DCP DISK SVC 
00001C 118+B60 EQU 28 12 8 %* 000018 235 HALT £OU 24 HALT SVC 
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W66 * 2 * 001B06 4CA1 1144+ TBTR R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 
467 * 11. BAL $RECL,R6 RECALIBRATE * 001B08 4CA3 11454+XIO2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
U68 * : a 00O1BOA 4724 BCE 1146+ MVA oBLK,R7 SET UP CONTROL BLOCK FOR SUPVR 
469 * 12 BAL S$RDID, R6 READ SECTOR ID * OO1BOE 4CA6 1147+ TBTR Ra, $LE) RESET LEVEL ERROR INDICATOR 
u70 * * 001B10 4C62 1148+ TBTS R4,XI) SET EXPECTED INTR CONTROL BIT 
u71* x 001B12 600A 1149+ SVC TART CALL SUPVR FOR I/O COMMAND 
0O01A64 4020 1BD2 19E8 472 $SEEK MVA SKDCB,IODCB SET UP CONTROL PLOCK FOR SVC CALL 1150+* 
OO1A6A 5SO2A 473 J XIO 001B14 4CA7 1151+ TBTR (Roe NT) IS AN INTR EXPECTED 
u74 * 001B16 6ACO 0002 1152+ BN R6, 2) * NO, RETORN TO USER 
001A6C 4020 1BD2 19A8 475 $RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 1153+* 
OO1A72 5026 urs J XIO Meet THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
rT * + 
OO1A7A S009 De 1968 wa ge eee SETUP READ SECTOR ID BUPE OOIBIE 4Ch3 1392x108 THR (RAIN) HAS INTERRUPT BEEN RECEIVED 
S SETUP RE SECTOR ID BUFFER ADRS 
ugod * 001B20 1239 1158+ JON eater * YES, CHECK IF ALL WAS SATISFACTORY 
OO01A7C 4020 1BD2 1A48 481 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 001B22 6002 1159+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
QO1A82 OBFF 482 SCT1 MVBI X'FF!,R3 SET BUFFER TO F'S 1160+* SUPVR WILL RETURN HERE 
OO1A84 4524 194E 483 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 001B24 6002 1161+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0O01A88 4724 0004 Yeu MVWI 4,R7 SETUP BUFFER LENGTH 1162+* SUPVR WILL RETURN HERE 
OO1A8C 2BAC 485 FFN R3, (R5) INIT READ SECTOR ID BUFFER 001B26 7DA1 0001 1163+ AWI 1,R5 ADVANCE TIME OUT COUNT 
OO1A8E 5018 486 J x16 0OO1B2A 18F9 1164+ JINZ xfo8 BCH IF TIME OUT NOT REACHED 
YB] x 001B2C 4c61 1165+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
001A90 4020 1BD2 19B8 488 $WSEC MVA WSDCB,IODCB SET UP BLOCK FOR SVC CALL 0OO01B2E 68D2 1166+ B R6) * R 'NO INTERRUPT! 
001A96 4020 19C6 1A60 489 MVA WRSID,WSDCB+14 SETUP WRITE ID DATA BUFFER ADDR 1168 + HE EE III IC III ICR AG II RK Ke «0 3 FEB] 6** 
OO1A9C 5011 490 J XIO 1169+* 
491 * 1170+* SUBROUTINE 
OO1A9E 4020 1BD2 1A38 492 $WKEW MVA WKDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 1171+* 
OO1AA4 4020 1A46 1A60 493 MVA WRSID, WKDCB+14 SEUP WRITE ID DATA BUFFER ADDR 1172+%* I/O EXECUTE ERROR HANDLING ROUTINE 
OO1AAA SOOA 4Qy J XIO 1173+* 
495 x 1174+* PURPOSE 
OO1AAC 4020 1BD2 1A18 496 $RDIM MVA PMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALI 1175+* 
OO1AB2 OBFF 497 MVBI X'FFt",R3 SET BUFFER TO F'S 1176+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
OO1AB4 4524 2512 498 MVA IDO00,R5 SETUP RFAD SECTOR ID BUFFER ADRS 1177+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
OO1AB8 4724 0084 499 MVWI 132,87 SETUP BUFFER LENGTH 1178+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
OO1ABC 2BAC 500 FFN R3, (R5) INIT READ SECTOR ID BUFFER 1179+* 
OO1ABE 5000 501 J x16 1180+* CALLING SEQUENCE 
502 COPY T7AXEQ 1181+* 
Neos PRINT OFF aes SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
T + 
Oe es LEE Ee Oe OE OE PE EEE hee rE oor te ere y TT ey eT aceee RETURN CONTROL 
1069+* 1185+* 
1070+s SUB-ROUTINE as B (R6) * RETURN TO USERS ERROR HANDLER 
+ 
10 72+* EXECUTE INPUT AND OUTPUT COMMANDS V18 G4 KK KR KKK KKK EK OKI RICK RO OR KOI kk i OK kk kk eke kk oi i ek ak ak ie ake tek ok 
1073+% 1189+* 
1074+* PURPOSE 1190+* CC = DEVICE NOT ATTACHED 
1075+* 1191+* FOR = DEVICE BUSY 
1076+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1192+* I/O 2= DEVICE BUSY AFTER RESET 
1077+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 1193+* = COMMAND REJECT 
1078+* 1194+ = INTERVENTION REQUIRED 
1079+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 1195+* 5= INTERFACE DATA CHECK 
1080+% THE I/O COMMAND. 1196+* 6= CONTROLLER BUSY 
1081+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 1197+* 7= I/O COMMAND EXCEPTED 
1082+* ISSUED BY THIS SUBROUTINE. 1198+* 
1083+* 3. CLEAR CUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 001B32 1199#XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
1084+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 001B34 1200+ SRL 13,83 POSITION CC CODE TO BITS 13-15 
1085+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 001B36 1201+ MVB R3,$10IN * PUT IN LOG OUT AREA 
1086+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 001B3A 1202+ (R6) * RETURN TO USER ERROR HANDLER 
1087+* MYSTERY INTERRUPT (MT) CONTROL BIT IS SET. T2O U4 RK KEKE REI a tk ek kk 0 hk kkk kok ok ok 2&1 A DR7 6 * * 
1088+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN R7, SET THE 1205+* IL 
1089+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SVC START". 1206+* SUB-ROUTINE IL 
1090+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 1207+* IL 
1091+* STARTS TO DETERMINE A LOST INTERRUPT. 1208+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* IL 
1092+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE-IF IT 1209+* IL 
1093+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 1210+* PURPOSE IL 
1094+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 1211+* IL 
1095+%* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 1212+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
1096+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 1213+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
1097+* 11. CHECK TO SEF IF THE EXERCISER IS TO BE TERMINATED. 1214+* EXPECTED CODE. IL 
1098+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 1215+* IL 
1099+* ISSUED BY THIS SUBROUTINE. 1216+* CALLING SEQUENCE IL 
1100+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 1217+* IL 
110 1+% CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 1218+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT IL 
1102+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 1219+ IL 
1103+* 1220+* RETURN CONTROL IL 
1104+* CALLING SEQUENCE 12214+* TL 
1105+* 1222+* SVC EXIT RETURN TO USEK VIA SUPVR IL 
1106+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1223+* IL 
1107+* VDD AH HK HHH Fe HK He He a KR he Oe 2 a ee 2h 2 ae a ie i ec 2 a ee ei He co a a ie a a ak ok ak a KK KK TT 
1108+* --> BAL X10 OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 1225+* IL 
1109+* --> BAL XIO1 MOD PARM PRELOADED IN 'Iomob! 1226+* CC O= CONTROLLER END ISB = ADD STATUS IL 
1110+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 1227+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
1111+* --> BAL XIOCS-4,R6 AUTO CS STATUS {POLLOKT NG OTHER XIO 1228+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
1112+* . AND DOES NOT POST INTERRUPT STATUS) 1229+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC IL 
1113+* 1230+* Y= ATTENTION INTERRUPT 4= STG DATA CK IL 
1114+* RETURN CONTROL 1231+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
1115+ 1232+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
1116+* BXS R6, 2) RETURN TO USER NO ERROR 1233+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 
1117+* OR B {* RETURN AND RETRY ON ERROR 1234+* IL 
11184 3 a OI OK iC OK tok ack lok iciiaiok kok ak tok dak toto fk tok teak tok ded ak ok OO0O1B3E 706E 1235+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
001ACO CB25 1BD4 1120+XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 001B40 336A 1236+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
OO1AC4H 500E 1121+ J XIO1 CS I/O'S ARE NOT RETRIED 0O1B42 4424 1940 1237+ MVA OPTN1,R4 SET UP BASE ADRS IL 
1122+* 001B46 4cC28 1238+ TBT {Ro c§ IS CS IN PROGRESS IL 
001AC6 4020 1BD4 000D 1123+XIODG MVWI xX'OOOD!,IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 001B48 1006 1239+ JOFF NTE * NO TL 
OO1ACC 500A 1124+ J XIo1 GO TO CS OPS OO1B4A 4C6A 1240+ TBTS (R4,CE TURN ON CYCLE STEAL INTER ERROR IL 
1125+* 001B4C 6FO0D 1954 1241+ MVW R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
OO1ACE 4CAA 1126+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 001B50 C328 1955 1242+ MVB R3,DEV4+1 * AND THE COND CODE IL 
OO1AD0 4c68 1127+ TBTS R4,CS SET 'CYCLE STEAL STATUS' IN PROGRESS 001B54 500A 1243+ J INTR1 IL 
OO1AD2 4020 1BD2 19F8 1128+XIOCS MVA SDCB, [ODCB SET UP CONTROL BLOCK FOR SVC CALL 001B56 4c24 1244+INTES TBT R4, XE) TEST EXPECTED ATTEN / ERROR IND IL 
001AD8 4020 1BD4 OOOF 1129+ MVWI X'OOOFT, TOMOD SET CYCLE STEAL MODIFIER 001B58 1002 1245+ JOFF NT eT BCH IF NOT FXPECTED IL 
QOOIADE 4C28 1130+ TBT {Fe CS) IS CS IN PROGRESS, ERROR CONDITION OO1B5A F304 1246+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 
OO1AEO 1213 1131+ JON TO2 * YES, BYPASS SAVING I/O ADRS 001B5C 1006 1247+ JE ThTR1 * YES, BCH TO END INTR SEQUENCE TL 
OO1AE2 6E0D 194C 1132+XIO1 MVW R6,LSTIO SAVE {AR FOR RETRY IF REQUESTED OO1B5E 4c61 1248+INTET TBTS (Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
OO1AE6 4324 1956 1133+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 001B60 5004 1249+ J NTR 1 IL 
OO1AEA 6D08 1BD2 1134+ MVW IODCE,P5 * AND THE FROM ADRS, ALONG WITH 1250+* THE ERROR INTERRUPT USES THE SAME IL 
OO1AEE OF1A 1135+ MVBI 26,R7 x THE NUMBER OF MOVES 1251+ ENDING SEQUENCE AS THE NORMAL INTR IL 
OO1AFO 2D64 1136+ MVFN SB) $F) MOVE 1 STATUS WORD AND ADJUST 1 D534 RM HH HK He He He eK ie ah a fe ee ae 2 ie eK ee 3 a he ee 2 a KC KK Ok KK He RK KK KKK KKK TL APRTIGELL 
OO1AF2 OBFF 1137+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 1254+ IL 
OO1AF4 4524 1966 1138+ MVA CSBOUF, RS * TO ALL ONES * 1255+* SOUBROUTINE IL 
OO1AF8 OFI1A 1139+ MVBI 26,R7 * 1256+* IL 
OO1AFA 2BAC 1140+ FFN R3 485) * 1257+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL! IL 
OO1TAFC 4020 1948 0708 1141+ mvWI 6 X'6708',SI0IN OVERLAY OLD CONDITION CODES 1258+* IL 
001B02 CB25 194A Ve ee MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE Pes PURPOSE IL 
IL 
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1261+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL OO1BF6 6ADO 0000 Va7 Te BN (R6) * ERROR RETURN TO USER 
+ 
1263+* CALLING SEQUENCE TL OO1BFA 8828 1986 1BD2 1379+S$CONP MVW SINTL, IODCB PUT IN LEVEL & INTR PARAMETER 
1264+% Ti, 001c00 4724 1BCE 1380+ MVA LOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
1265+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL, 001C04 4020 1948 0708 1381+ MVWI X°O708" $IOIN INITIALIZE CONDITION CODE STORAGE 
1266+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 001COA CB25 194A 1382+ MVWZ SISB R3 AND CLEAR OLD ISB VALUE 
1267+* AFTER THE SPECIAL PART HAS REEN COMPLETED AND THE IL OO1COE 6E0D 194c 1383+ MVW P Enzo SET UP ADDRESS THAT STARTED LAST 1/0 
1268+* COMMON SECTION IS HANDLED HERE. IL 001C12 600C 1384+ svc PRED AND CALL ON SUPVR 
1269+ IL 001c14 5601 1385+ (R6, 2) RETHON TO USER 
1270+* RETURN CONTROL IL 1387+* EE LEE e NE oo) POE TET EEE TEC PEE Te EE ie ry Lee mE T eT Pee ere 
1271+* IL 1388+* 
127248 SVC EXIT RETURN TO USER VIA SUPVR TL oe SUBROUTINE 
+ IL + 
V2 TY RK HK KK ok ato kro oR RR RO aK tok tok tok doko tok ok TT 1391+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
001B62 T706E 12754+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 1392+ 
001B64 336A 1276+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1393+* PURPOSE 
001B66 4424 1940 1277+ MVA OPTN1,R4 SET UP BASE ADRS IL 1394+ 
OO1B6A 4C63 1278+INTR1 TBTS R4, 1h SET INTERRUPT RECEIVED TL 1395+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
001B6C 4cC28 1279+ TBT R4,CS IS 'CS IN PROGRESS! ON IL 1396+* SET THE "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
OO1B6E 1204 1280+ JON NTR 2 * YES, BCH AROUND UPDATE TL 1397+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
001B70 C328 1949 1281+ MVB R3,$10IN+1 SAVE INTERRUPTING CC IL 1398+ 
001B74 6F0D 194A 1282+ MVW R7,$1SB SAVE INTR STATUS AND DEV. ADRS TL 1399+* CALLING SEQUENCE 
001B78 1283+INTR2 EQU * IL 1400+* 
1284+4+* CPCL R5 CURRENT LEVEL COPIED BY DCP TL 1401+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
001B78 3521 1285+ SLL 4,RS POSITION INTP LEVEL AND PUT IL 1402+* 
0OO1B7A 0501 1286+ ABI 1,R5 * IN 'I* BIT IL 1403+* --> B SERRS$ SET 'NG' BIT AND CONVERT DATA TO LOG 
0OO1B7C CD24 1986 1287+ CW SENTL, RS IS THIS THE CORRECT INTR LEVEL IL 1404+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
001B80 1002 1288+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 1405+* 
001B82 4C66 1289+ TBTS R4, SLE) SET INTR LEVEL ERROR CONTROL BIT IL 1406+* RETURN CONTROL 
001B84 4C61 1290+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 1407+* 
001B86 4CA2 12914+INTR3 TBTR R4,XI WAS INTERRUPT EXPECTED IL 1408+ B TURTN* RETURN TO MDI 
001B88 1204 1292+ JON NTRX S, EXIT OFF THIS INTR LEVEL Ti, 1409+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
001B8A 4C60 1293+ TBTS RY, MI) * NO, SET MYSTERY INTR CONTROL BIT IL 1410+%* 
001B8C F304 1294+ CBI R3 ATTENTION INTERRUPT? IL FT YH RA Bh a 2 He ae eM Me He A he he he he OK ie 3h ke Me a 2h he 3h ae 3c 2c fe HE fe he a 3c ae ae 9c 2 2 2 kc ic ac ae ae fe ak ade ae ic af ae ae ae af afc ae ake ak ake oc ak oe 
0O01B8E 1001 1295+ JE TATRX YES IL 001C16 4020 1868 8000 1412+SERR$ MVWI X' 8000! , TUSTATUS SET ON "NO GOOD! STATUS BIT 
001B90 4céCc 1296+ TBTS (Ba, NG) ERROR UNEXPECTED INTERRUPT IL 001C1C 4724 1DE6 1413+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
001B92 6006 1297+ INTRX SVC XIT T THIS LEVEL VIA SUPVR TO PGM IL 001C20 601A 1414+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
FOGG e KE RERKR EES EN GS 4 Es U SAEs EEO te AOR e eee HK KK KKK KK KKK RE KKK ZF EBT] 6K 001C22 4020 I8DE 4040 1415+ MVWI XTGONO! ,TUWORK+ 116 
1300+* 001C28 4020 18FO 4040 1416+ MVWI X'4O040", TUWORK+118 
1301+* THIS IS THE CONTINUATION OF EXECUTE 170 AFTER THE INTERRUPT 001C2E 4020 18E2 4040 1417+ MVWI X*4040") TUWORK+120 
1302+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 001C34 OD04 1418+SPRNT MVBI 4,R5 
1303+* RECEIVED AND BRANCHES HERE TO CHECK POR ANY ERROR CONDITIONS. 001C36 4324 186A 1419+ MVA TUWORK,R3 SET UP BUFFER STORAGE 
13044+%* 001C3A 6BOD 1DDE 1420+ MVW R3,BUFDT 
1305+* 001C3E 4124 1CBA 1421+ MVA  LINE1,R1 
001B94 4cCA4 1306#XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 001C42 OFO4Y 1422+ MVBI 4,R7 
001B96 6ACO 0002 1307+ BN R6, 2) YES, EXIT THIS ROUTINE 001C44 OEFOS8 1423+ MVBI 8,R6 
OO1B9A 4CA8 1308+ TBTR R4,CS) WAS Aro CS IN PROGRESS 001C46 2B24 1424U+MVBUF MVFN (83) 6 (R1) 
001B9C 1006 1309+ JOFF Toev * NO, CONTINUE CHECKING 001c48 OFO4 1425+ MVBI cB 
OO1B9E 4C2A 1310+ TBT {Ra CE) ts c& IN AN ERR CONDITION OO1C4A OA4O 1426+ MVBI xX'4O',R2 
OO1BA0 1002 1311+ JOFF TOCO * NO, BCH , 001CcC4C C258 1427+ MVB R2 (Rips 
001BA2 68D2 0000 1312+ B R6) * cs ERROR 001C4ER BEFB 1428+ JCT MVBUF, R6 
001BA6 4C69 1313+XIOCO TBTS R4&,CSA) TURN ON CS STATS AVAIL FLAG 001C50 0OEF08 1429+ MVBI 8,R6 
001BA8 5601 1314+ BXS RG» 2) GO TO USER 001¢C52 7921 002CcC 1430+ AWI ah R41 
OO1BAA 4C21 1315+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 001C56 BDF7 14314 JCT MVBUF,RS 
OO1BAC 100D 1316+ JOFF TocxX * NO, EXIT THIS ROUTINE 001C58 4020 1802 F1F0 1432+ MVWI PIDMS610,PID+2 
1317+%* 001C5E 4020 18EA 1DE4 1433+ MVA  FAKETU,ODCADD1 
OO1BAE C520 1949 1318+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 001C64 4020 18EC 1DEO 1434+ MVA DC2PT, DDCADD2 
0O01BB2 F502 1319+ CBI 2,R5 IS THIS CC=2 0OO1C6A 402C 18FE 0080 1435+ OWL BITO0080,SUPSTAT 
OO1BB4 1003 1320+ JE xfoco YES 001C70 4324 1946 1436+ MVA  $TUID,R3 SET UP BUFFER STORAGE 
001BB6 F506 1321+ CBI 6,R5 IS THIS CC=6 001C74 6F13 1866 1437+ BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
001BB8 68D1 0000 1322+ BNE (Re) * * NO, BCH TO ERROR HANDLER 1438+%* 
OO1BBC C520 194A 1323+XI0CQ MVB ISB,R5 GET LAST ISB DATA BYTE AND IF CS 001C78 1439+ $CONX EQU * 
001BCO 6A00 1ACE 1324+ BN xtoc$-4 * AVAILABLE, GO AND GET IT 001C78 C720 1814 1440+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
001BC4 68D2 0000 1325+ B R6) * ERROR 001C7C 6013 1441+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
001BC8 CB25 1944 1326+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS OO1C7E 6812 1988 1442+ B TURTN* RETURN TO MDI SUPERVISOR 
001BCC 5601 1327+ BXS (R6, 2) RETURN TO USER VIA REG 6 14434+* 
1328+%* 001Cc82 0009 1444U+BEGIN DC A(0009 NUMBER OF LINES TO PRINT 
1329+* 1/0 PARAMETER LIST 001C84 0008 1445+ DC A(0008 LINE LENGTH = 8 CHAR 
1330+* 001C86 5C5C40C1C2DE6D9E3 1446+ DC C'** ABORT? 
OO1BCE 1814 1331+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OO1C8E 0028 1447+ DC A (0040) LINE LENGTH = 40 CHAR 
001BD0 1832 1332+ DC A (XIOER) ERROR ROUTINE ADRS 001C90 E3E4C9OCU4OCIDECID 1448+ DC C'TUID IOIN ISB INST SECT ID DATA CSCC ! 
001BD2 0000 1333+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 001CB8 0028 1449+ DC A (0040) LINE LENGTH = 4O CHAR 
001BD4 0000 1334+IOMOD DC A (*-* MODIFIER OO1CBA 4O4O04040S040K40404 14504LINE1 DC cs t 
001BD6 0000 1335+ DC A (*-* ADRS OF LAST SVC CALL Q001CE2 0028 1451+ DC A (0040) LINE LENGTH = 40 CHAR 
001BD8 0000 1336+IORSP DC A (*=-* SECOND WORD OF LAST IDCB OO1ICES C3DSE3D340CHC3C2F 1452+ DC C'CNTL DCB1 DCB2 DCB3 DCB&Y CHAD BYCT ADRS ! 
1337+* 001D0C 0028 1453+ DC A (0040) LINE LENGTH = 40 CHAR 
1338+%* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS OOIDOE 4O4OK4OKOFO4O4O4O4 1454+LINE2 DC c* : 
1339+ 001D36 0028 1455+ DC A (0040) LINE LENGTH = 40 CHAR 
OO1BDA 1814 1340+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 001D38 C3E260FO40C3E260F 1456+ DC C'cS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
OO1BDC 1B62 1341+ DC A (INTOK INTERRUPT OK RETURN ADRS 001D60 0028 1457+ DC A (0040) LINE LENGTH = 40 CHAR 
OO1BDE 1B3E 1342+ A INTER INTERRUPT ERROR ADRS 001D62 4YO4O4O4OK 04040404 14584+LINE3 DC c' t 
00O1BEO0 0003 1343+INTCC DC 0003! INTERRUPT CODE EXPECTED O01D8A 0028 1459+ DC A (0040) LINE LENGTH = 40 CHAR 
1255 4S HS EAEEE SS 404546 0SRSERSEA TSEC OTe eck ed eo ore eee eae seven Ina CeS 001D8C C3E260F840C3E260F 1460+ DC C'cS-8 CS-9 CS-A CS-B CS-C ' 
1346+* 001DB4 0028 1461+ DC A (0040) LINE LENGTH = 4O CHAR 
134 74% SUBROUTINE 001DB6 4OsKOe4OKOu040K0404 1862+LINES DC ct ‘ 
+ + 
1349+ CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 001DDE 0000 1464+BUFPT DC A aa 
1350+* 001DEO0 1C82 1465+DC2PT DC A (BEGIN) 
1351+* PURPOSE OO1DE2 0101 1466+FIXTU DC X¥*O0101" 
1352+* OO1IDEG 0101 1467+FAKETU pc xX*0101! 
1353+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OOF1FO 1468+PIDMSG10 EQU X"*FIFOt 
1354+ PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 1469+BIT0080 EQU x*'0080! 
1355+* TO INTERRUPT. 1470+% 
1356+* 1471+% DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
1357+* CALLING SEQUENCE 1472+% 
1358+* 001DE6 OO3A 1473+#HEBLK DC A 38) NUMBER OF BYTES TO CONVERT 
1359+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: QOO1DE8 1946 1474+ DC A ($TUID FROM ADRS 
1360+* OO1DEA 186A 1475+ DC A (TUWORK) AND THE TO ADRS 
1361+* --> BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 1477 eee a nee Cee near een tee Cee seeeneeetre ste 
1362+* -~> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 1478 * PHYSICAL * LOGICAL SECTOR AND RECORD NUMBERS 
1363+* 1479 * SECTOR# AS * (SEE NOTE 2 BELOW FOR EXPLANATION OF COLS) * 
1364+* RETURN CONTROL 1480 * CODED IN * * 
1365+* 1481 * WRITE/READ corre ar ee MOVEABLE HEADS ¥¥®¥RREKEKKKKKKKK PTX ED *k* 
1366+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 1482 * ID Bx * * * * HEADS * 
13674+* OR B R6{ * IF THE DEVICE COULD NOT BE CONNECTED sued weueene : : : . ‘ 
1368+* 1484 kx HEX) cxnatandslt cana toed beh ownntandtitbeanteedtlecventeredecs tees! 
1369 + OO III IOI III II IO IO IK I I IO abt ak ak afc ak ok 1485 * 2 * 4O 1) * 40 1) * 40 s}) * 4O sy) * 4O 1) * 
OO1BE2 OFO6 1370+$CONC MVBI 6. R7 NUMBER OF BYTE TO CLEAR 1486 * INDEX * INDEX * INDEX * INDEX * INDEX * INDEX * 
001BE4 OBOO 1371+ MVBI *R3 * AND THE DATA TO USE 1487 * 00 * 00 00 20 * 30 18 38 * 20 10 30 * 10 08 28 * 00 00 20 * 
0O1BE6 4524 194 1372+ MVA bev R5 : ALONG WITH THE ADRS TO USE 1488 * 01 * 02 01 21 * 32 19 39 * 22 11 31 * 12 09 29 * 02 01 21 = * 
QO1BEA 2BAC 1373+ FFN (85) , 1489 * 02 * 04 02 22 * 34 1A 3A * 24 12 32 * 14 OA 2A * OY O02 22 * 
OO1BEC CB25 1944 1374+ MVWZ Bee 3, CLEAR OLD CONTROLS FOR NEW ROUTINE 1490 * 03 * 06 03 23 * 36 1B 3B * 26 13 33 * 16 OB 2B * 06 03 23 * 
OO1BFO 4724 1BDA 1375+ MVA TNTBL RY SET R7 TO CONTROL BLOCK AND 1491 * 04 * 08 O4 24 * 38 1C 3C * 28 14 34 * 18 OC 2C * 08 OY 24 * 
OO1BF4 6014 1376+ SVC CICB * CONNECT IT TO THIS DEVICE 1492 * 05 * OA 05 25 * 3A 1D 3D * 2A 15 35 * 1A OD 2D * OA OS 25 * 
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U7AFO --- 4963 SECTOR ID MOVE FROM CYL 64 TO SCATT P/N=6837922 EC=375222 
CROSS-REFERENCE LISTING 
DECLARED NAME ATTRIBUTES AND REFERENCES 
1370 $CONC ,ARDRESS. HEX LOCATION (00001BE2) IN CSECT(U7AFO ) LENGTH(2) 
1439 $CONX ADDRESS, HEX LOCATION (00001C78) IN CSECT(U7AFO ) LENGTH(1) 
1012 SERRE BBBRRSD, FEY NGCNTEGY (OOO9ICTSL gE SHEET (UTRED oh HENGE (C 
1826 1841 1859 1861 1863 1865 1878 1882 1884 
1898 1902 1906 1908 1922 1924 1927 1936 1954 
193 SINTL ADDRESS. HEX LOCASTOR (00001986) IN CSECT(U7AFO ) LENGTH(2) 
158 $IOIN RDDRESS. HEX LOCATION (00001948) IN CSECT(U7AFO ) LENGTH(2) 
159 $ISB ‘ADDRESS. HEX LOCATE ON (00067 94a) IN CSECT(U7AFO ) LENGTH(2) 
143 SLE "ABSOLUTE. HEX VALUE (00000026) 
478 $RDID ‘ADDRESS HEX LOCATION (00001A74) IN CSECT(U7AFO ) LENGTH(6) 
496 $RDIM NADDRESS, |HBX LOCATION (00001A2C) IN CSECT(U7AFO ) LENGTH(6) 
481 $RKEW JADBRESS« HEX LOCATION (00001A7C) IN CSECT(U7AFO ) LENGTH (6) 
472 $SEEK ADBRESS. HEX LOCATION (0000164) IN CSECT(U7AFO ) LENGTH(6) 
157 $TUID ADDRESS. HEX LOCATION (00001946) IN CSECT(U7AFO ) LENGTH(2) 
492 $SWKEW ADDRESS. HEX LOCATION(O00001A9E) IN CSECT(U7AFO ) LENGTH(6) 
2165 $WRID SABRES. HEX LOCATION(OO0002BEE) IN CSECT(U7AFO ) LENGTH(6) 
488 $WSEC {ADBRESS. HEX LOCATION (0000190) IN CSECT(U7AFO ) LENGTH (6) 
67 @DCADD1 ADDRESS. HEX LOCATION (000018EA) IN CSECT(U7AFO ) LENGTH(2) 
68 @DCADD2 ADDRESS. HEX LOCATION (000018EC) IN CSECT(U7AFO ) LENGTH(2) 
51 @ETOH ADDRESS. HEX LOCATION (00001820) IN CSECT(U7AFO ) LENGTH (2) 
77 @MSGWTR ADDRESS. HEX LOCATION (000018F8) IN CSECT(U7AFO ) LENGTH(4) 
71 @OUT ADDRESS. HEX LOCATION (000018F2) IN CSECT(U7AFO ) LENGTH (2) 
55 @OUTIN ;ADBRESS. HEX LOCATION (00001828) IN CSECT(U7AFO  ) LENGTH (2) 
70 aouT1 ADDRESS. HEX LOCATION (000018F0) IN CSECT(U7AFO  ) LENGTH (2) 
73 ABMSG ADDRESS. HEX LOCATION(000018F6) IN CSECT(U7AFO ) LENGTH(2) 
1930 ASIGR {BDBRESSs HEX LOCATION (00002314) IN CSECT(U7AFO ) LENGTH(4) 
1960 ASMDD ,ADDRESS. HEX LOCATION (0000237C) IN CSECT(U7AFO ) LENGTH (4) 
1934 ASMD1 ADDRESS, HEX LOCATION (00002318) IN CSECT(U7AFO ) LENGTH(4) 
1940 aASMDO ANDRESS, HEY LOCATION (0000232F) IN CSFCT(NTAFO \ LENGTH (HY) 
1947 ASMD3 ADDRESS. HEX LOCATION (00002348) IN CSECT(U7AFO ) LENGTH(2) 
1945 ASMDY {ABBRESS. HEX LOCATION (00002340) IN CSECT(U7AFO  ) LENGTH (6) 
1957 ASMD5 ;ADDRESS. HEX LOCATION (0000236E) IN CSECT(U7AFO ) LENGTH (6) 
1959 ASMD9 {ADBRESS. HEX LOCATION (00002376) IN CSECT(U7AFO ) LENGTH (6) 
1926 ASME3 ADDRESS. HEX LOCATION (0000230A) IN CSECT(U7AFO ) LENGTH(4) 
1982 ASMM5 JABDRESS. HEX LOCATION (000023A4) IN CSECT(U7AFO ) LENGTH (4) 
1893 ASMX2 {ABBRESS. HEX LOCATION (00002290) IN CSECT(U7AFO ) LENGTH (6) 
1890 ASMX4 ADDRESS. HEX LOCATION (00002286) IN CSECT(U7AFO ) LENGTH(2) 
1914 ASM12 ;ADBRESS. HEX LOCATION (000022DA) IN CSECT(U7AFO ) LENGTH (6) 
1581 ASSGN {BDBRESS. HEX LOCATION (00001E2E) IN CSECT(U7AFO ) LENGTH (6) 
1758 ASSIG ADDRESS, ,HEX LOCATION (00002090) IN CSECT(U7AFO ) LENGTH (4) 
49 ASSIGN > ADDRESS. HEX LOCATION (00001816) IN CSECT(U7AFO ) LENGTH(8) 
1910 ASXX2 ADRESS, HEX LOCATION (000022CA) IN CSECT(U7AFO ) LENGTH(6) 
1991 AVLID ADBRESS. HEX LOCATION (000023D8) IN CSECT(U7AFO ) LENGTH (2) 
1444 BEGIN ADDRESS. HEX LOCATION (00001C82) IN CSECT(U7AFO ) LENGTH (2) 
1469 BITOO80 {ABSOLUTE HEX VALUE (00000080) 
2980 BLDOO jADBRESS- HEX LOCATION(000034D6) IN CSECT(U7AFO ) LENGTH(1) 
2988 BLD 10 ADDRESS. HEX LOCATION (000034DE) IN CSECT(U7AFO ) LENGTH (1) 
2996 BLD20 {BDBRESS. HEX LOCATION (00003486) IN CSECT(U7AFO  ) LENGTH (1) 
3004 BLD30 ADDRESS. HEX LOCATION (000034EE) IN CSECT(U7AFO  ) LENGTH (1) 
1970 BLEN {BRBRESS. HEX LOCATION (00002390) IN CSECT(U7AFO ) LENGTH (2) 
1464 BUFPT ADDRESS, HEX LOCATION(O0001DDE) IN CSECT(U7AFO ) LENGTH (2) 
106 B48 ABSOLUTE. HEX VALUE (00000010) 
107 B49 ;ABSOLUTE. HEX VALUE (00000011) 
108 B50 ABSOLUTE. HEX VALUE (00000012) 
109 B51 {AESOLUTE. HEX VALUE (00000013) 
110 B52 ABSOLUTE. HEX VALUE (00000014) 


U7AFO --- 4963 SECTOR ID MOVE FROM CYL 64 TO SCATT P/N=6837922 EC=375222 
CROSS-~REFERENCE LISTING 


DECLARED 
111 
112 
113 
114 
115 
116 

2057 
2058 
2059 
2060 
147 
2976 
231 
324 
2025 
2027 
2033 
2035 
2041 
2042 
2045 
2005 
145 
146 
176 


1961 
236 
217 

2168 

1467 

1547 

1967 

2515 

1546 

1968 


1972 
1966 


NAME 
B53 
B54 
B55 
R56 
B57 
B58 
CBO7 
CB15 
CB23 
CB40 
CE 
CEND2 
CICB 
CLDCB 
CNVT1 
CNVT2 
CNVT3 
CNVT4 
CNVT5 
CNVT6 
CNVT9 
CONV? 
cS 
CSA 
CSBUF 
CSDCB 
CSTL5 
CSTL6 


<) 


CiV 
c11 
C64 
DATA 
DCBUF 
DC2PT 
DEVADD 
DEVTAB 
DEV1 
DEV4 
DGDCB 
DIS 
EIGHT 
ER 


U 
0 


oO 


ER22 
ETOH 
EXIT 
EXIT1 
FAKETU 
FD 
FGSEC 
FSTID 
FXD 
HDC YL 


HDDO 
HEADS 


ATTRIBUTES AND REFERENCES 


ABSOLUTE. HEX VALUE (00000015) 
BSOLUTE. HEX VALUE (00000016) 
SOLUTE. HEX VALUE (00000017) 
OLUTE. HEX VALUE (00000018) 
OLUTE. HEX VALUE (00000019) 
OLUTE. HEX VALUE (0000001A) 
RESS. HEX LOCATION (00002AD6) IN 
RESS. HEX LOCATION (00002AD8) IN 
RESS. HEX LOCATION (00002ADA) IN 
. HEX LOCATION(OOOO2ADC) IN 
oLitE. HEX VALUE (0000002A) 

330 HEX LOCATION (000034C8) IN 
OLUTE. HEX VALUE (00000014) 
RESS. HEX LOCATION (000019A8) IN 
RESS. HEX LOCATION(00002A22) IN 
RESS. HEX LOCATION (00002A2A) IN 
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U7AFO --- 4963 SECTOR ID MOVE FROM CYL 64 TO SCATT P/N=6837922 EC=3752272 
CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES DECLARED NAME 


DECLARED NAME 





1590 1591 1750 1807 2069 1561 
1473 HEBLK , ADDRESS. HEX LOCATION (O0001DE6) IN CSECT(U7AFO LENGTH (2) 160 LSTIO oo Re: HEX LOCATION (O000194C) IN CSECT (U7AFO LENGTH (2) 
237 HTOE ABSOLUTE. HEX VALUE (0000001A) 1987 MESS8 ye aah HEX LOCATION (000023B0) IN CSECT(U7AFO LENGTH (2) 
213 IDLE ABSOLUTE: HEX VALUE (00000002) 1988 MESSY fa Lone OP: HEX LOCATION (000023B2) IN CSECT(U7AFO LENGTH (32) 
2526 IDOA > ADDRESS. HEX LOCATION (00002E3A) IN CSECT(U7AFO ) LENGTH(4) 137 MI Na HEX VALUE (00000020) 
2527 IDOB > ADDRESS. HEX LOCATION (O0002E3E) IN CSECT(U7AFO ) LENGTH (4) 1545 MINC see aos le 
2528 IDOC > ADDRESS. HEX LOCATION(00002E42) IN CSECT(U7AFO ) LENGTH (4) 61 MSG REDRESS = HEX LOCATION (00001834) IN CSECT (U7AFO ) LENGTH (49) 
2529 IDOD ADDRESS. HEX LOCATION (00002E46) IN CSECT(U7AFO ) LENGTH (4) 87 MSGWTR1 epee: HEX LOCATION (0000191A) IN CSECT (U7AFO ) LENGTH (2) 
2530 IDOE > ADDRESS. HEX LOCATION (OOOO2E4A) IN CSECT(U7AFO ) LENGTH (4) 1424 MV BUF ty aa ee ages LOCATION (00001C46) IN CSECT(U7AFO ) LENGTH (2) 
2531 IDOF ADDRESS. HEX LOCATION(OO0O2E4E) IN CSECT(U7AFO LENGTH (4 1965 NCYLN ADDRESS. HEX ee on eee e IN CSECT (U7AFO LENGTH (2 
2359 ( ( ™) 1775 1777 1779 1812 1825 1827 8 { (2) 
2516 ID00 ADDRESS. LOCATION (00002212) IN CSECT (U7AFO ) LENGTH (4) 1964 NCYLP ADDRESS. HEX LOCATION (00002384) IN CSECT (U7AFO ) LENGTH (2) 
498 F233" “1621 162 73 1682 2224 1776 1780 1814 1816 1820 1840 1842 
2517 IDO1 > ADDR SS. HEX LOCATION (00002E16) IN CSECT(U7AFO ) LENGTH(A4) 149 NG paueo eure: HEX VALUE (0000002C) 
2518 ID02 > ADDRESS. HEX LOCATION (OQ002E1A) IN CSECT(U7AFO ) LENGTH(4) 144 NI A HEX VALUE (00000027) 
2519 ID03 ADDRESS. HEX LOCATION(00002E1E) IN CSECT(U7AFO ) LENGTH (4) 1595 NOFXD EDEN? es HEX LOCATION (OOO001E62) IN CSECT(U7AFO LENGTH (6) 
2520 IDO4 ADDRESS. HEX LOCATION (00002E22) IN CSECT(U7AFO ) LENGTH(4) 102 OPTN1 ieaee aaa eee IN CSECT (U7AFO LENGTH (2) 
2521 IDO5 ADDRESS. HEX LOCATION (00002E26) IN CSECT(U7AFO ) LENGTH(4) 125 OPTN3 (aoe sea LOCATION (00001944) IN CSECT(U7AFO LENGTH (2) 
2522 ID06 ADDRESS. HEX LOCATION (0O0002E2A) IN CSECT(U7AFO ) LENGTH (4) 211 out pesonuie. Bear cee rot geet 
2523 ID07 ADDRESS. HEX LOCATION (O0002E2E) IN CSECT(U7AFO ) LENGTH (4) 212 OUTIN jec3 HEX VALUE (00000001) 
2524 ID08 ADDRESS. HEX LOCATION (00002E32) IN CSECT(U7AFO ) LENGTH (4) 442 PHYSC ADDRESS. HEX Ro one aS on oa ane IN CSECT (U7AFO LENGTH (2) 
2296 1785 1875 2008 2019 2021 2023 2025 2027 2029 
2525 ID09 ADDRESS. HEX LOCATION(00002E36) IN CSECT(U7AFO ) LENGTH(4) 2031 2033 2035 2037 2039 2041 2044 
2305 40 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(U7AFO ) LENGTH(4) 
2542 ID1A ADDRESS. HEX LOCATION(O0002E7A) IN CSECT(U7AFO ) LENGTH (4) 81) 1432 
2458 1468 PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 
2543 ID1B ADDRESS. HEX LOCATION(OO0O2E7E) IN CSECT(U7AFO ) LENGTH (4) 1432 
2467 1544 PINC ABSOLUTE. HEX VALUE (00000010) 
2544 ID1Cc ADDRESS. HEX LOCATION(00002E82) IN CSECT(U7AFO ) LENGTH(4) 1555 1804 1818 1829 
2u76 223 PREP ABSOLUTE. HEX VALUE (0000000C) 
2545 ID1D ADDRESS. HEX LOCATION (00002586) IN CSECT(U7AFO ) LENGTH(4) 1384 
2485 1549 RASN ABSOLUTE. HEX VALUE (00000014) 
2546 ID1E ADDRESS. HEX LOCATION(00002E8A) IN CSECT(U7AFO ) LENGTH (4) 1560 
2494 440 RAY ADDRESS. HEX LOCATION (00QQ1A5A) IN CSECT(U7AFO ) LENGTH (2) 
2547 ID1F ADDRESS. HEX LOCATION(O0002E8E) IN CSECT(U7AFO ) LENGTH (4) 1613-1709 1943 9 1957 
503 1994 RDBUF ADDRESS. HEX LOCATION(000025DC) IN CSECT(U7AFO ) LENGTH (2) 
2532 ID10 ADDRESS. HEX LOCATION(00002F52) IN CSECT(U7AFO ) LENGTH (4) 1598 
8 407 RDDCB ADDRESS. HEX LOCATION(00001A28) IN CSECT(U7AFO ) LENGTH (2) 
2533 ID11 ADDRESS. HEX LOCATION(00002E56) IN CSECT(U7AFO ) LENGTH (4) 1598 
2377 1683 REPTT ADDRESS. HEX LOCATION(QO001FA4) IN CSECT(U7AFO ) LENGTH (4) 
2534 ID12 ADDRESS. HEX LOCATION(00002E5A) IN CSECT(U7AFO ) LENGTH(4) 16 86 
2386 230 RICB ABSOLUTE. HEX VALUE (00000013) 
2535 ID13 ADDRESS. HEX LOCATION (O0002E5E) IN CSECT(U7AFO ) LENGTH (4) 1441 
395 429 RKDCB ADDRESS. HEX LOCATION(00001A48) IN CSECT(U7AFO LENGTH (2) 
25 36 ID14 ADDRESS. HEX LOCATION (00002E62) IN CSECT(U7AFO ) LENGTH(4) S56 1596 1872 1876 1904 1348 1950 1951 
2537 ID15 ANDRESS. HEX LOCATION (00002E66) IN CSECT(U7AFO +) LENGTH(4) 396 RMDCB ADDRESS. HEX Ag on 40 IN CSECT (U7AFO ) LENGTH (2) 
2413 496 1606 1607 1703 1704 1952 2109 
2538 ID 16 ADDRESS. HEX LOCATION(00002E6A) IN CSECT(U7AFO ) LENGTH (4) 2978 RSBA ADDRESS. HEX fo seg ee IN CSECT (U7AFO LENGTH (2) 
2422 316 333 343 Bs 15) 367 89 400 411 
2539 ID17 ADDRESS. HEX LOCATION(O0002E6E) IN CSECT(U7AFO ) LENGTH(4) 433 2221 2230 2239 2248 2257 2266 2275 
2431 2293 2302 2311 2320 2329 2338 2347 2356 
2540 ID18 ADDRESS. HEX LOCATION (00002E72) IN CSECT(U7AFO ) LENGTH (4) 2374 2383 2392 2401 2410 2419 2428 2437 
2440 2455 2464 2473 2482 2491 2500 2509 
2541 ID19 ADDRESS. HEX LOCATION(00002E76) IN CSECT(U7AFO ) LENGTH(4) 339 RSDCB ADDRESS. HEX Boca on sega ad IN CSECT (U7AFO LENGTH (2) 
2449 478 1595 1781 1782 1785 1788 1793 1795 
2548 ID20 a DRRESS. HEX LOCATION (00002E92) IN CSECT(U7AFO ) LENGTH(4) ose cae 1842 1852 1869 1871 1875 1876 
140 IN ABSOLUTE. HEX VALUE(00000023) RO REGISTER. HEX VALUE (00000000) 
1145 115 127 1601 2124 2134 
59 INAREA ADDRESS. HEX LOCATION (00001830) IN CSECT(U7AFO LENGTH (2) 0 R1 REGISTER. HEX ee ete 
59 56 77 78 79 0 84 87 88 91 1421 
1548 Inc ABSOLUTE. HEX VALUE (00000013) 1424 TH27 1430 1577 +1578 1640 1644 1647 £41682 
1559 1835 184 1683 1684 1712 1713 1715 1716 41718 #+1719 «#1733 
1340 INTBL ADDRESS. HEX LOCATION(00001BDA) IN CSECT(U7AFO ) LENGTH (2) Ley 1739 17417 1743 1745 1746 2006 2007 2008 
1235 INTER ADDRESS. HEX LOCATION(00001B3E) IN CSECT(U7AFO ) LENGTH (2) 0 R2 REGISTER. HEX yee sno d 
1342 79 85 87 1426 1427 1616 1617 1618 1619 
1244 INTES ADDRESS. HEX LOCATION(00001B56) IN CSECT(U7AFO ) LENGTH(2) 1637 1646 1939 1941 1947 2082 2083 2084 2088 
1239 2090 2123 2130 2130 2130 21371 2132 2144 
1248 INTET ADDRESS. HEX LOCATION(00001B5E) IN CSECT(U7AFO ) LENGTH(2) 0 R3 REGISTER. HEX eee ar one. 
245 482 485 497 500 1120 1133 1136 1137 1140 
1275 INTOK ADDRESS. HEX LOCATION(00001B62) IN CSECT(U7AFO ) LENGTH (2) 1742 1199 1200 1201 1235 1236 1242 1246 1275 
1341 1276 1281 1294 1326 1371 1373 1374 1382 1419 
1297 INTRX ADDRESS. HEX LOCATION (00001B92) IN CSECT(U7AFO ) LENGTH(2) 1420 1424 1436 1615 1619 1622 1623 1632 1634 
13921395 1636 1637 1638 1641 1642 1647 1650 1651 1652 
1278 INTR1 ADDRESS. HEX LOCATION(00001B6A) IN CSECT(U7AFO +) LENGTH(2) 1654 1656 1666 1667 1668 1673 1674 1674 1675 
1243 1247 1249 1678 1679 1680 1772 1773 1774 #+%$1775 #1776 = 1788 
1283 INTR2 ADDRESS. HEX LOCATION(00001B78) IN CSECT(U7AFO ) LENGTH (1) 1789) 1790 «617917 «2017 20172 2013 2015 2017 2067 
1280 2068 2069 2071 2072 2073 2074 2098 2099 2105 
1291 INTR3 ADDRESS. HEX LOCATION(00001B86) IN CSECT(U7AFO ) LENGTH(2) 2125_ 2126 «82128 ©2131) = =62133) 2143 
9 0 R4 REGISTER. HEX VALUE (00000904) 
1331 IOBLK ADDRESS. HEX LOCATION (OO0O1BCE) IN CSECT(U7AFO ) LENGTH (2) 86 92 1126 1127 1130 1744 1145 1147) 1148 
1146 1380 1151. 1157 1165 1237 1238 1240 1244 #1248 1277 
1333 IODCB ADDRESS. HEX LOCATION (0000 1BD2) IN CSECT(U7AFO i LENGTH (2) 1278 1279 1289 1290 1291 1293 1296 1306 1308 
u72 475 478 48 uss 9? 496 1128 1310 1313 1315 1555 1556 1557 1558 1559 1560 
1379 1951 2165 1561 1562 1563 1564 1565 1566 1567 1582 1594 
1334 IOMOD ADDRESS. HEX LOCATION(OO001BD4) IN CSECT(U7AFO ) LENGTH (2) 1602 1608 1611 1690 1695 1701 1707 1723 1734 
4190-2323. 1129 1762 1771 #1786 1798 1802 1804 1818 1821 1823 
2550 LASTID ADDRESS. HEX LOCATION(00002E96) IN CSECT(U7AFO ) LENGTH(2) 1829) 1831 1833 1835 1844 1860 1864 1868 1879 
2550 1885 1889 1890 1895 1899 1903 1907 1911 1916 
44 LGSEC ADDRESS. HEX LOCATION (0000 1A5C) IN CSECT(U7AFO ) LENGTH(2) 1923. 1928 1955 2077 2100 2103 2107 2161 
65 1767 #1783 1873. 200 2042 0 R5 REGISTER. HEX amet agen eet eee 
1450 LINE1 ADDRESS. HEX LOCATION(00001CBA) IN CSECT(U7AFO ) LENGTH (40) 483 485 498 900 1134 1136 1138 1140 1156 
1421 1163 1285 1286 1287 1318 1319 1321 1323 1372 
1550 LST ABSOLUTE. HEX VALUE (00000015) 1373 1418 1431 1621 1622 1624 1625 1626 1628 
1630 1658 1660 1662 1664 1667 1669 1940 1947 


U7AFO --- 4963 SECTOR ID MOVE FROM CYL 64 TO SCATT P/N=6837922 EC=375222 PAGE 14 U7AFO --- 4963 SECTOR ID MOVE FROM CYL 64 TO SCATT P/N=6837922 EC=375222 PAGE 14A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1948 1949 | 65 TUSTATUS ADDRESS. HEX LOCATION(00001868) IN CSECT(U7AFO ) LENGTH(2) 
0 R6 REGISTER. HEX VALUE (00000006) 1412 
1132. 1152 1166 1202 1307 1312 1314 1322 1325 66 TUWORK ADDRESS. HEX LOCATION (0000186A) IN CSECT(U7AFO ) LENGTH(1) 
1327 1377 1383 1385 1423 1428 1429 1583 1586 1415 1416 1417 1419 1475 
1609 1614 1688 1705 1710 1717 #1744 «(+1758 1760 253 TWO ABSOLUTE. HEX VALUE(00000002) 
1796 1800 1801 1805 1807 1858 1862 1877 1883 78 
1897 1905 1921 1926 1934 1935 1953 2005 2066 50 TYP7A ADDRESS. HEX LOCATION(0000181E) IN CSECT(U7AFO ) LENGTH(1) 
2121 2122 2130 2158 2159 574 
0 R7 REGISTER. HEX VALUE (00000007) 1781 T023 ADDRESS. HEX LOCATION(000020F2) IN CSECT(U7AFO ) LENGTH(6) 
82 89 95 204 484 ° 499 1135 1139 1146 1778 
1244 1282 1370 1375 1380 1413 1422 1425 1437 1753 T6902 ADDRESS. HEX LOCATION(0000208C) IN CSECT(U7AFO ) LENGTH(4) 
1440 1570 1572 1620 1692 1693 1694 1722 1784 1751 
1874 1982 2168 2169 1738 T6903 ADDRESS. HEX LOCATION (0000204E) IN CSECT(U7AFO ) LENGTH(6) 
1990 SAVID ADDRESS. HEX LOCATION (000023D4) IN CSECT(U7AFO ) LENGTH(2) 1735 1752 
1768 1769 1772 1781. 1851 1869 1870 1873 1746 TES904 ADDRESS. HEX LOCATION(00002070) IN CSECT(U7AFO ) LENGTH(4) 
2048 SA VREGS ADDRESS. HEX LOCATION(00002A7A) IN CSECT(U7AFO ) LENGTH(2) 1740 
2066 2110 2121 2142 2158 2163 1569 T7A95 ADDRESS. HEX LOCATION(00001E06) IN CSECT(U7AFO ) LENGTH(4) 
2052 SAVRGS ADDRESS. HEX LOCATION(O0002AA8) IN CSECT(U7AFO ) LENGTH(2) u2 1575 
2005 2045 1570 T7A951 ADDRESS. HEX LOCATION(OO001E0A) IN CSECT(U7AFO ) LENGTH(4) 
1975 SAV1 ADDRESS. HEX LOCATION (0000239E) IN CSECT(U7AFO ) LENGTH(2) 1569 1580 
1716 1718 1743 1745 1577 T7A952 ADDRESS. HEX LOCATION(00001E24) IN CSECT(U7AFO ) LENGTH(4) 
1971 SCINP ADDRESS. HEX LOCATION (00002392) IN CSECT(U7AFO _) LENGTH(2) 1575 
1715. 1741 1742 1759 #1764 = =1765 + «#41766 +1767 + 1768 1772 T702 ADDRESS. HEX LOCATION(000020CE) IN CSECT(U7AFO ) LENGTH(4) 
165 SCTID ADDRESS. HEX LOCATION (00001945) IN CSECT (U7AFO ), LENGTH (2) 770 
1388 436 83 1595 1596 1848 1850 1887 1893 1786 T703 ADDRESS, HEX LOCATION (0000210E) IN CSECT(U7AFO ) LENGTH (2) 
482 SCT 1 ADDRESS. HEX LOCATION (00001A82) IN CSECT(U7AFO ) LENGTH (2) 1795 T7033 ADDRESS. HEX LOCATION(00002128) IN CSECT(U7AFO ) LENGTH(6) 
1974 SCT32 ADDRESS. HEX LOCATION (0000239C) IN CSECT(U7AFO ), LENGTH (2) 1796 T704 ADDRESS. HEX LOCATION(0000212E) IN CSECT(U7AFO ) LENGTH(4) 
1665 1670 1672 1676 1681 1685 1711 1720 1738 787 1794 1810 
1747 1807 T7044 ADDRESS. HEX LOCATION(0000214C) IN CSECT(U7AFO ) LENGTH(4) 
2552 SD00 ADDRESS. HEX LOCATION(00002E98) IN CSECT(U7AFO ) LENGTH (4) 3 
1704. 1709. 1 1800 T706 ADDRESS. HEX LOCATION(00002138) IN CSECT(U7AFO ) LENGTH(4) 
2121 SETWR ADDRESS. HEX LOCATION(00002B78) IN CSECT(U7AFO ) LENGTH(6) 9 
1692 1848 T7066 ADDRESS. HEX LOCATION(000021D0) IN CSECT(U7AFO ) LENGTH(6) 
2126 SET 10 ADDRESS. HEX LOCATION(00002B8C) IN CSECT(U7AFO ) LENGTH(2) 9 ; 
2134 1812 T709 ADDRESS. HEX LOCATION(0000215E) IN CSECT(U7AFO ) LENGTH(6) 
2130 SET15 ADDRESS. HEX LOCATION (00002B96) IN CSECT(U7AFO ) LENGTH(2) 06 1808 
2127 1829 T710 ADDRESS. HEX LOCATION(0000219C) IN CSECT(U7AFO ) LENGTH(2) 
2138 SET25 ADDRESS. HEX LOCATION(00002BB6) IN CSECT(U7AFO ) LENGTH(6) 1813 
2136 1831 [711 ADDRESS. HEX LOCATION(000021A0) IN CSECT(U7AFO ) LENGTH(2) 
2131 SET27 ADDRESS. HEX LOCATION (00002898) IN CSECT(U7AFO ) LENGTH(6) 1815 1817 
2145 1818 T712 ADDRESS, HEX LOCATION(00002176) IN CSECT(U7AFO ) LENGTH(2) 
2141 SET30 ADDRESS. HEX LOCATION (00002BC4) IN CSECT(U7AFO ) LENGTH (6) 30 1832 
2139 1833 713 ADDRESS. HEX LOCATION(000021A4) IN CSECT(U7AFO ) LENGTH(2) 
2143 SET35 ADDRESS. HEX LOCATION(00002BCE) IN CSECT(U7AFO ) LENGTH(4) 19 
2129 1820 7714 ADDRESS. HEX LOCATION(0000217A) IN CSECT(U7AFO ) LENGTH(6) 
363 SKDCB ADDRESS. HEX _LOCATION(000019E8) IN CSECT(U7AFO ) LENGTH(2) 7 
472 1687 1759 1857 1840 T715 ADDRESS. HEX LOCATION(000021B6) IN CSECT(U7AFO ) LENGTH(6) 
1977 SKEW ADDRESS. HEX LOCATION (000023A0) IN CSECT(U7AFO ) LENGTH(2) 1822 
1891 1844 T716 ADDRESS. HEX LOCATION(000021CA) IN CSECT(U7AFO ) LENGTH(2) 
1552 SKW ABSOLUTE. HEX VALUE (00000017) 1824 
1563 1890 1903 1916 1827 T717 ADDRESS. HEX LOCATION(00002192) IN CSECT(U7AFO ) LENGTH(6) 
1591 SMLF1 ADDRESS. HEX LOCATION(00001E52) IN CSECT(U7AFO ) LENGTH (6) 1846 
1589 1838 T718 ADDRESS. HEX LOCATION(000021AE) IN CSECT(U7AFO ) LENGTH(6) 
221 START ABSOLUTE. HEX VALUE(0000000A) 1834 3 
119 1842 T719 ADDRESS. HEX LOCATION(000021C0) IN CSECT(U7AFO ) LENGTH (6) 
1606 STR22 ADDRESS. HEX LOCATION (00001E94) IN CSECT(U7AFO ) LENGTH(6) ioes 
1603 1821 T720 ADDRESS. HEX LOCATION(00002180) IN CSECT(U7AFO ) LENGTH(2) 
1607 STR23 ADDRESS. HEX LOCATION(00001E9A) IN CSECT(U7AFO ) LENGTH (6) 1839 
1696 2066 UPDTE ADDRESS. HEX LOCATION(OOOO2ADE) IN CSECT(U7AFO ) LENGTH(6) 
1648 STR4O ADDRESS. HEX LOCATION(00001F24) IN CSECT(U7AFO ) LENGTH(6) 1694 1722 
1639 2081 UPDOS ADDRESS. HEX LOCATION(00002B10) IN CSECT(U7AFO ) LENGTH(6) 
1646 STR41 ADDRESS. HEX LOCATION(00001F1A) IN CSECT(U7AFO ) LENGTH(6) 2070 2101 
1643 2088 UPDO6 ADDRESS. HEX LOCATION(00002B28) IN CSECT(U7AFO ) LENGTH(4) 
1641 STR42 ADDRESS. HEX LOCATION(00001F08) IN CSECT(U7AFO ) LENGTH (4) 2085 
1645 2094 UPDO7 ADDRESS. HEX LOCATION(00002B3C) IN CSECT(U7AFO ) LENGTH(6) 
1703 STTT3 ADDRESS. HEX LOCATION(00001FEO) IN CSECT(U7AFO ) LENGTH(6) 2091 
1724 2096 UPDOS ADDRESS. HEX LOCATION(00002B44) IN CSECT(U7AFO ) LENGTH(6) 
1615 STT23 ADDRESS. HEX LOCATION(00001EB6) IN CSECT(U7AFO ) LENGTH(4) 2089 
1612 2098 UPD20 ADDRESS. HEX LOCATION(00002B4C) IN CSECT(U7AFO ) LENGTH(2) 
1711 STT24 ADDRESS. HEX LOCATION(00002000) IN CSECT(U7AFO ) LENGTH (6) 2075 
1708 2102 UPD54 ADDRESS. HEX LOCATION(00002B56) IN CSECT(U7AFO ) LENGTH(6) 
69 SUPSTAT ADDRESS. HEX LOCATION(000018EE) IN CSECT(U7AFO ) LENGTH(2) 2078 
1435 2103 UPD55 ADDRESS. HEX LOCATION (00002B5C) IN CSECT(U7AFO ) LENGTH(2) 
2051 SVREG ADDRESS. HEX LOCATION (00002AA8) IN CSECT(U7AFO ) LENGTH(1) 2080 2087 2093 2095 2097 
2048 2048 2108 UPD56 ADDRESS. HEX LOCATION(00002B68) IN CSECT(U7AFO ) LENGTH(6) 
2050 SVREGA ADDRESS. HEX LOCATION(00002A80) IN CSECT(U7AFO ) LENGTH(2) 2104 2106 
2049 39 U7AFO CSECT. START(00001800) LENGTH(7776) ESDID(1) 
2055 SVRG ADDRESS. HEX LOCATION (00002AD6) IN CSECT(U7AFO ) LENGTH(1) 39 
2052 2052 1719 WALT1 ADDRESS. HEX LOCATION (00002020) IN CSECT(U7AFO ) LENGTH(4) 
2054 SVRGA ADDRESS. HEX LOCATION(OOOO2AAE) IN CSECT(U7AFO ) LENGTH(2) 1774 
2053 1713 WALT2 ADDRESS. HEX LOCATION(0000200A) IN CSECT(U7AFO ) LENGTH (4) 
1739 TCO1 ADDRESS. HEX LOCATION (00002054) IN CSECT(U7AFO ) LENGTH(4) 1721 
1748 418 WKDCB ADDRESS, HEX LOCATION (00001438), IN CSECT(U7AFO ) LENGTH(2) 
218 TERM ABSOLUTE. HEX VALUE (00000007) 492 493 1918 1919 1920 1949 
1576 2170 2158 WRALL ADDRESS. HEX LOCATION (00002BD8) IN CSECT(U7AFO ) LENGTH(6) 
1637 TTRS ADDRESS, HEX LOCATION(OOOO1EFA) IN CSECT(U7AFO ) LENGTH(2) 1693 
1627 1633 1635 1992 WRBUF ADDRESS. HEX LOCATION(000023DC) IN CSECT(U7AFO ) LENGTH(2) 
1667 TTSST ADDRESS. HEX LOCATION (00001F62) IN CSECT(U7AFO ) LENGTH(2) 1597 
1671 351 WRDCB ADDRESS. HEX LOCATION(000019D8) IN CSECT(U7AFO ) LENGTH(2) 
1665 TTST ADDRESS. HEX LOCATION(00001F58) IN CSECT(U7AFO ) LENGTH (6) 1597 
1659 1661 1663 44 3 WRSID ADDRESS. HEX LOCATION (0000 1A60), IN CSECT(U7AFO ) LENGTH(2) 
1674 TTTST ADBRESS. HEX LOCATION (QOOO1F7E) IN CSECT(U7AFO ) LENGTH (4) 1328 1423 1482 1333 1851 1854 1855 1856 1866 
1660 TTOO APBRESS, HEX LOCATION (00001F48) IN CSECT(U7AFO ) LENGTH (4) 1553 WRT ABSOLUTE. HEX VALUE (00000018) 
1662 TT20 ;BDDRESS. HEX LOCATION (QOOO1F4E) IN CSECT(U7AFO  ) LENGTH (4) 2217 WRTOO ADDRESS. HEX LOCATION (00002C02) IN CSECT(U7AFO ) LENGTH(2) 
1664 TT 30 jADRRESS. HEX LOCATION (O0001F54) IN CSECT(U7AFO ) LENGTH(4) 2505 WRT20 ADDRESS, HEX LOCATION (00002E02) IN CSECT(U7AFO ) LENGTH (2) 
1634 TT 33 ADDRESS. HEX LOCATION(QOOO1EFO) IN CSECT(U7AFO ) LENGTH (4) 329 WSDCB ADDRESS. HEX LOCATION (000019B8) IN CSECT(U7AFO ) LENGTH(2) 
1629 488 489 1852 1853° 1854 1857 1910 (1914 1915 
1636 TTYY ADDRESS. HEX LOCATION(OOOO1EF6) IN CSECT(U7AFO ) LENGTH(4) 1918 
1631 141 XE ABSOLUTE. HEX VALUE (00000024) 
1918 TT708 ADDRESS. HEX LOCATION(000022EA) IN CSECT(U7AFO ) LENGTH(6) 1244 = 1306 
1929 139 XI ABSOLUTE. HEX VALUE (00000022) 
64 TUMSGHTR ADDRESS. HEX LOCATION (00001866) IN CSECT(U7AFO ) LENGTH (2) ree oer 1148 1291 oy cect aetna na 
: ACO) IN CSECT (U7AFO 
194 TURTN ADDRESS. HEX LOCATION(00001988) IN CSECT(U7AFO ) LENGTH(2) i733. 876 486 490 | aod bot Sige. TAF Pe ai ta ae 
1442 1581 1306 XIOCK ADDRESS. HEX LOCATION (00001B94) IN CSECT(U7AFO ) LENGTH(2) 
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1313 XIOCO ' ADDRESS. HEX LOCATION (00001BA6) IN 
1323 XIOCQ ‘oe HEX LOCATION (OOO01TBEC) IN 
1128 XIOCS ADDRESS. HEX LOCATION (OOOO1AD2) IN 
1315 XIOCV ‘ADDRESS. HEX LOCATION (00001BAA) IN 
13 26 XIOCX ‘ADDRESS. HEX LOCATION (00001BC8) IN 
1199 XIOER FU waa HEX LCCATION (00001B32) IN 
1132 XIO1 es LOCATION (QOOO1AE2) IN 
1145 XI02 Po aa HEX LOCATION (00001B08) IN 
1157 XIO8 (Ace HEX LOCATION (OOOOTBIE) IN 
439 ZEROO ADDRESS. 4H LOCATION (00001A58) IN 


EX 
1638 1642 1646 1848 


FE RR HK I I IK 0 a ke ae he a 2c ke oo a tek ok ok ke tok kok ateokeek 8 TAST PAGE 
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y, ENDUP 
CSECT(U7AFO  ) LENGTH(2) 
CSECT(U7AFO  ) LENGTH(4) 
CSECT(U7AFO ) LENGTH(6) 
CSECT(U7AFO ) LENGTH(2) 
CSECT(U7AFO ) LENGTH(4) 
CSECT(U7AFO  ) LENGTH(2) 
CSECT(U7AFO  ) LENGTH(4) ; 
CSECT(U7AFO ) LENGTE(2) 
CSECT(U7AFO  ) LENGTH(2) 
CSECT(U7AFO  ) LENGTH(2) 
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